
*****@@@@@@@@@@@@@@@@@@@*****
*****************************
*****Resultados Planea*******
*****************************
*****@@@@@@@@@@@@@@@@@@@*****

clear
set more off

use "$basein/Planea/alum_pb_2018"

drop if entidad=="CHIAPAS"

rename cct school_id

*********************************************************
***Traigo base con variable de tratamiento y controles***
*********************************************************

merge m:1 school_id using "$basein/Datos adicionales/base_Contraste.dta", gen(planea)

keep if planea==2 | planea==3


merge m:1 school_id using "$basein/Datos adicionales/Experimento_id.dta", gen(experimento)
drop experimento

merge m:1 school_id using "$basein/Datos adicionales/estratos.dta", gen(_estrato)

keep if _estrato==3

merge m:1 school_id using "$basein/Datos adicionales/Change_Director_2015_2018.dta", gen(_cambio)

drop if _cambio==2

******************
***KEEP´ONLY PEC VS PEC PLUS******
******************

drop if state==10
drop if treatgroup2=="Control"
*************
**Id estado**

gen esi=substr(school_id, 1,2)

**********************
**Genero tratamiento**

gen PEC_Plus=0
replace PEC_Plus=1 if treatgroup2=="PEC Plus"

gen PEC=0
replace PEC=1 if treatgroup2=="PEC"

gen Control=0
replace Control=1 if treatgroup2=="Control"

******************************************
**Estudiantes que no tomaron son missing**

replace wle_mat=. if presen_mat=="0"
replace wle_lyc=. if presen_esp=="0"

***********************************
**Estandarizo variables resultado**

egen mat_std=std(wle_mat)
egen leg_std=std(wle_lyc)
gen promedio=(wle_mat+wle_lyc)/2
egen promedio_std=std(promedio)

pca wle_mat wle_lyc, components(1)

predict prom_pca
egen prom_pca_std=std(prom_pca)
replace prom_pca=prom_pca_std

**************************************************
**Genero efecto fijo de estado y otros controles**

encode entidad, gen(estado)

gen m_alta=0
replace m_alta=1 if marginacion=="Muy alta o Alta"

gen m_media=0
replace m_media=1 if marginacion=="Media"

gen m_baja=0
replace m_baja=1 if marginacion=="Baja o Muy baja"

encode school_id, gen(cct_num)

save "$base_out/alum_pb_2018_modified", replace

	
	preserve
	keep mat_std leg_std promedio_std prom_pca  treatgroup2 PEC PEC_Plus cct_num estrato estado
	save "$base_out/learning_summary.dta", replace
	restore
	
	
************************************************************
******* Resultados_planea_2018_nivelescuela.dta ************
************************************************************	
use "$basein/Planea/Resultados_planea_2018_nivelescuela.dta", clear

rename clavedelaescuela clavecct
duplicates drop clavecct, force /***elimina la única obs. repetida*/

rename GRADODEMARGINACIÓN marginacion
gen marginalization=0
replace marginalization=1 if marginacion=="Muy Alta y Alta"|marginacion=="Muy Alta"|marginacion=="Alta"

/*
gen school_id=clavecct
merge m:1 school_id using "$basein/Datos adicionales/base_Contraste.dta", gen(planea)

keep if planea==2 | planea==3


merge m:1 school_id using "$basein/Datos adicionales/Experimento_id.dta", gen(experimento)
drop experimento
******************
***KEEP´ONLY PEC VS PEC PLUS******
******************

drop if state==10
drop if treatgroup2=="Control"
*/

save "$base_out/Resultados_planea_2018_nivelescuelaModified.dta", replace


